Add delq list arg check

* src/fns.c (Fdelq): Check that list is a proper list.
This is more compatible with what ‘delete’ does.

diff --git a/src/fns.c b/src/fns.c
index 0d93f8247485a43454e1fde16bb403d803691a3b..136a2198c2c1d43ba6597701c3f65a501c06f0de 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1589,6 +1589,7 @@ argument.  */)
       else
        prev = tail;
     }
+  CHECK_LIST_END (tail, list);
   return list;
 }